Choisissez la meilleure réponse pour tester vos connaissances sur les concepts fondamentaux de LOGO.
Question 1 : Définir une procédure
Quelle est la syntaxe correcte pour commencer la définition d'une procédure nommée CERCLE ?
A) POUR CERCLE
B) FIN CERCLE
C) I CERCLE
Question 2 : Utilisation des paramètres
Si la procédure est définie POUR MAISON :T, comment la tortue doit-elle avancer d'une longueur égale à ce paramètre ?
A) AV T
B) AV :T
C) AV "T
Question 3 : Imbrication de procédures
Si la procédure A contient la commande B 50, que signifie B 50 ?
A) B 50 est un nouveau mot-clé.
B) B 50 est une instruction qui dessine une ligne.
C) C'est l'appel de la procédure B avec le paramètre 50.
Question 4 : Rôle de REPETE
Que fait la commande REPETE 10 [ AV 5 TD 36 ] ?
A) Elle dessine une figure fermée à 10 côtés (polygone ou étoile).
B) Elle avance de 10 pas et tourne de 36 degrés.
C) Elle crée une nouvelle variable.
Question 5 : La Condition d'Arrêt
Dans quel cas l'instruction SI :C > 200 [STOP] est-elle la plus utile ?
A) Pour dessiner un carré.
B) Pour arrêter une spirale lorsque le pas devient trop grand.
C) Pour changer la couleur du crayon.
Statut QCM : 0 / 5 questions tentées.
Rédigez le code LOGO complet pour résoudre chacun des problèmes suivants. Vous devez utiliser les procédures paramétrées, l'imbrication et, si nécessaire, les structures de contrôle (REPETE, SI).
Problème 1 : Triangle Isocèle Variable (TISOC)
Créez la procédure TISOC :C :H. Elle dessine un triangle isocèle de côté de base :C et de hauteur :H.
Pour simplifier, utilisez un angle de 100 degrés au sommet et 40 degrés pour les autres angles. Les côtés égaux sont de longueur :H et la base :C. (Rotation 180-40=140 degrés, puis 180-100=80 degrés).
Problème 2 : Tapis de Carrés
En utilisant la procédure CARRE :C, créez la procédure TAPIS :C qui dessine 4 carrés de taille :C disposés en ligne. Le premier carré doit être en rouge (FCC 2) et les trois suivants en bleu (FCC 1).
N'oubliez pas de lever le crayon pour avancer entre les carrés.
Problème 3 : Motif de Spirales
En utilisant une procédure SPIRALE :P qui dessine une petite spirale de 10 tours (pas initial P=5, augmentation +3), créez la procédure ROUES :P. Cette procédure doit dessiner 6 spirales identiques, en tournant de 60 degrés (360/6) entre chaque dessin. La position finale doit être la même que la position initiale.
Problème 4 : Écrire avec position
Créez la procédure ECRIRE.EN.COULEUR :TEXTE :COUL :X :Y. Elle déplace la tortue à la position (:X, :Y) sans tracer, change la couleur du crayon selon :COUL, puis écrit le :TEXTE à cet endroit.
Utilisez : LC, FIXEPOS :X :Y (ou VC), FCC :COUL, et ECRIS :TEXTE.
Problème 5 : La Suite d'Octogones Limitée
En utilisant la procédure POLY :N :C (360/N), créez la procédure DEGRADE.POLY :N :C qui dessine des polygones à :N côtés de taille :C en ligne. Après chaque polygone, la taille :C est réduite de 10 pas (DONNE "C :C - 10). La procédure doit **s'arrêter** si le côté devient inférieur ou égal à 20.
Correction I. Partie Théorique (QCM)
Question 1 : A) POUR CERCLE (Pour définir la procédure)
Question 2 : B) AV :T (Le deux-points lit la valeur du paramètre)
Question 3 : C) C'est l'appel de la procédure B avec le paramètre 50 (Imbrication)
Question 4 : A) Elle dessine une figure fermée à 10 côtés (polygone ou étoile). (360/10 = 36)
Question 5 : B) Pour arrêter une spirale lorsque le pas devient trop grand. (Condition d'arrêt)
Solutions II. Partie Pratique (Problèmes TP)
Solution Problème 1 : Triangle Isocèle Variable (TISOC)
POUR TISOC :C :H
# Le côté :H est utilisé pour les côtés égaux, :C pour la base
# Dessiner un côté :H et tourner de 140 (180 - 40)
AV :H TD 140
# Dessiner la base :C et tourner de 80 (180 - 100)
AV :C TD 80
# Dessiner le dernier côté :H et tourner de 140
AV :H TD 140
FIN
# Test : TISOC 150 100
Solution Problème 2 : Tapis de Carrés
POUR CARRE :C
REPETE 4 [ AV :C TD 90 ]
FIN
POUR TAPIS :C
# 1. Premier carré (Rouge)
FCC 2
CARRE :C
# Avance de C + 10 pour l'espace
LC AV :C + 10 BC
# 2. Les trois autres carrés (Bleu)
FCC 1
REPETE 3 [
CARRE :C
LC AV :C + 10 BC # Espace entre les carrés suivants
]
# Optionnel : Retour au centre
# RECULE 4 * (:C + 10) LC AV 0 TD 90
FIN
# Test : TAPIS 40
Solution Problème 3 : Motif de Spirales (ROUES)
POUR SPIRALE :P
DONNE "COTE :P
REPETE 10 [
AV :COTE
TD 90
DONNE "COTE :COTE + 3
]
FIN
POUR ROUES :P
REPETE 6 [
SPIRALE :P
TD 60 # 360 / 6 = 60
]
FIN
# Test : ROUES 5
Solution Problème 4 : Écrire avec position
POUR ECRIRE.EN.COULEUR :TEXTE :COUL :X :Y
LC # Lève Crayon
FIXEPOS :X :Y # Va aux coordonnées
BC # Baisse Crayon (optionnel, selon l'implémentation de ECRIS)
FCC :COUL # Change la couleur
ECRIS :TEXTE # Affiche le texte
FIN
# Test : ECRIRE.EN.COULEUR "LOGO.FINAL 1 50 50
Solution Problème 5 : La Suite d'Octogones Limitée
POUR POLY :N :C
DONNE "ANGLE 360 / :N
REPETE :N [ AV :C TD :ANGLE ]
FIN
POUR DEGRADE.POLY :N :C
REPETE 100 [
SI :C <= 20 [STOP] # Condition d'arrêt
POLY :N :C
# Déplacement sans tracer pour espacer (si besoin, AV :C * 2)
LC AV :C * 2 BC
# Réduction de la taille
DONNE "C :C - 10
]
FIN
# Test : DEGRADE.POLY 8 150 # Octogone (N=8) commençant à 150